home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-19.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  921b  |  57 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Bitmap AS STRING*256
  6. DIM EGAbitmap AS STRING*32
  7.  
  8. NewMode = FGbestmode(320,200,1)
  9. IF NewMode < 0 OR NewMode = 12 THEN
  10.    PRINT "This program requires a 320 x 200 color graphics mode."
  11.    STOP
  12. END IF
  13.  
  14. IF NewMode = 4 THEN
  15.    MapWidth = 8
  16. ELSEIF NewMode = 9 THEN
  17.    MapWidth = 16
  18. ELSEIF NewMode = 19 THEN
  19.    MapWidth = 32
  20. END IF
  21.  
  22. OldMode = FGgetmode
  23. FGsetmode NewMode
  24.  
  25. FGsetcolor 7
  26. FGrect 0, 31, 0, 7
  27. FGsetcolor 9
  28. FGtext "text", 4
  29. FGwaitkey
  30.  
  31. FGmove 0, 7
  32. IF NewMode = 13 THEN
  33.    FGsetcolor 7
  34.    FGgetimage Bitmap, 4, 8
  35.    FGsetcolor 9
  36.    FGgetimage EGAbitmap, 4, 8
  37. ELSE
  38.    FGgetimage Bitmap, MapWidth, 8
  39. END IF
  40.  
  41. FGmove 4, 15
  42. IF NewMode = 13 THEN
  43.    FGsetcolor 7
  44.    FGdrwimage Bitmap, 4, 8
  45.    FGsetcolor 9
  46.    FGdrwimage EGAbitmap, 4, 8
  47. ELSE
  48.    FGdrwimage Bitmap, MapWidth, 8
  49. END IF
  50.  
  51. FGwaitkey
  52.  
  53. FGsetmode OldMode
  54. FGreset
  55.  
  56. END
  57.